load packages

library(DT)

Attaching package: ‘DT’

The following objects are masked from ‘package:shiny’:

    dataTableOutput, renderDataTable

load data

Clean data

trial.dataset.clean <- trial.dataset %>%
 filter(Group %in% "UKBB")

Visualisation

Interactive visualisation

ggplotly(graph)
Warning: Removed 6 rows containing non-finite values (`stat_boxplot()`).
LS0tCnRpdGxlOiAiRE5BbmV4dXMgdHJpYWwgIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpsb2FkIHBhY2thZ2VzCmBgYHtyfQppbnN0YWxsLnBhY2thZ2VzKCJlc3F1aXNzZSIpCmluc3RhbGwucGFja2FnZXMoInBsb3RseSIpCmluc3RhbGwucGFja2FnZXMoImZsZXhkYXNoYm9hcmQiKQppbnN0YWxsLnBhY2thZ2VzKCJEVCIpCgpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShlc3F1aXNzZSkKbGlicmFyeShwbG90bHkpCmxpYnJhcnkoZmxleGRhc2hib2FyZCkKbGlicmFyeShEVCkKYGBgCgpsb2FkIGRhdGEKYGBge3J9CnRyaWFsLmRhdGFzZXQgPC0gcmVhZF9jc3YoImNvbWJpbmVkIGRhdGFzZXRzLmNzdiIpCnRyaWFsLmRhdGFzZXQKYGBgCgpDbGVhbiBkYXRhCmBgYHtyfQp0cmlhbC5kYXRhc2V0LmNsZWFuIDwtIHRyaWFsLmRhdGFzZXQgJT4lCiBmaWx0ZXIoR3JvdXAgJWluJSAiVUtCQiIpCmBgYAoKClZpc3VhbGlzYXRpb24gCmBgYHtyfQpnZ3Bsb3QodHJpYWwuZGF0YXNldC5jbGVhbikgKwogIGFlcygKICAgIHggPSBoeXBlcnRlbnNpb24sCiAgICB5ID0gYWdlX2F0X2xhc3RfZm9sbG93X3VwLAogICAgZmlsbCA9IGF0cmlhbF9maWJyaWxsYXRpb24KICApICsKICBnZW9tX2JveHBsb3QoKSArCiAgc2NhbGVfZmlsbF9odWUoZGlyZWN0aW9uID0gMSkgKwogIHRoZW1lX21pbmltYWwoKQpgYGAKCgpJbnRlcmFjdGl2ZSB2aXN1YWxpc2F0aW9uIApgYGB7cn0KZ3JhcGggPC0gZ2dwbG90KHRyaWFsLmRhdGFzZXQuY2xlYW4pICsKICBhZXMoCiAgICB4ID0gaHlwZXJ0ZW5zaW9uLAogICAgeSA9IGFnZV9hdF9sYXN0X2ZvbGxvd191cCwKICAgIGZpbGwgPSBhdHJpYWxfZmlicmlsbGF0aW9uCiAgKSArCiAgZ2VvbV9ib3hwbG90KCkgKwogIHNjYWxlX2ZpbGxfaHVlKGRpcmVjdGlvbiA9IDEpICsKICB0aGVtZV9taW5pbWFsKCkKCmdncGxvdGx5KGdyYXBoKQpgYGAKCg==